vee ceotete, LCCC SCC soc es MACKS ACS estes View Boos eue OF aeoUbe- Aes thas A 
OBJECT MODULE PLACED IN :F1:INTASK.OBJ 
INVOCATION LINE CONTRCLS: ODecBUG 


LOC OBJ Line 


i 
— 
ad 63 i Sk ee ed oe 
NOaAU EWM | OO TON OU EW 9 


18 
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+4 


+1 


SCURCE 


STITLEC’KAOS“MIP INPUT ROUTINE 7%) 
NAME KAQS_INTASK_A 
Sinclude C:fl:propa.lit) 


Intel Corporation Proprietary Information. This listing is 
supplied under the terms of a license agreement with Intel 
Corporation and may not be copied nor disclosed except in 
accordance with the terms of the agreement. 


oO 
® 


clare RequestScueueSdescriptor literally 
"RQSflag byte, 
RQ@¢tflag2 byte, 
RQsize byte, 
RQESsize bytes, 
GiveSindex byte, 
Give$state byte, 
TakeSindex byte, 


fa 


TakeSstete byte “- 


we Ne Ses Ne Ne We Ne Noe Ne Ns Ne Ne Bs Ne Ns 


a 


rdeclare RQEntry3f1 literally 
Request$id byte, 
SreSrequest$id byte, 
CestfdevSid byte, 
Destiporttid byte, 
Srce$devsid byte, 
Offset word, 

Cffset2 word, 

Length word, 

TOS8id byte, 
OwnerSdev byte “%7 


“we Ne We Ne Ns Ne Ne Ne Ne Ne 


,declare C@SMIPSidsSbases (MaxSno$segments) structure( 
; base byte, 
; length byte) external, 


ideclare CQOsmipDeviceSinfo(MaxSno$devices) structure ( 
status byte, 

RQCin pointer, 

RQDout pointer, 

IntStype byte, 

TimesStoSwait byte, 

Int$adr word ) external, 


‘we Na Ne Ne Ne NO 


declare CQSMIPSuseSpermit (8) byte external, 


7 

, CQSMIPSsendsutmbx (€16) byte external, 

; CQSMIPSremoteSmbx (16) byte external, 

; CQSMIiPSsendach (€16) byte external, 

; CQS$Thisdevice byte external, © 
KACS-MIP INPUT ROUTINE | 09/01/80 
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LOC 08J 


C000 O00 
CQ01 00 


) 


g086/_. {8088 


MACRO ASSEMBLER 


YoURGs 


Ne Ne Ne Ne Nt Ne NO 


vaecla 


? 


. 

7 

a 

? : 
. 
7 
« 
, 
es 
ra 
« 
tA 


OGROUP 
DATA 


TRESUL 
SREQTO 
DATA 


CGROUP 
CCDE 


KACS~MIP INPUT ROUTINE 


Port?tofimeilbox (Max$no$ports) word external, 
Send$Msg (€2) word external, 

Send3Sresult byte external, 

Sendistate byte external, 

Sendtdevice byte external, 

ReplyS$waiting literally ‘2’, 

NonSfullf$waiting literally °17’, 


re NoSsubsystems byte external, 
Subsystemlist (5) word external, 


declare MIPS$msotformat literally 


Link pointer, 
Offset pointer, 
Langth word, 
TOStid khyte, 


Ownersdevy 


GROUP 
SEGMENT 


EXTRN 

=XTRN 

EXTRN 

EXTRN 
T OB 

De 

ENOS 


GROUP 
SEGMENT 
ASSUME 
EXTRN 


EXTRN 
EXTRN 


PUSLIC 


a 


byte , 


DATA | 
BYTE PUBLIC ‘DATA’ 


COMIPDEVICEINFO:NEARsSENDSTATE: 8YTE/SENDDEVICE: BYTE 
COMIPSENDWTMBX :NEAR, SENDMSG:NEAR,/SENDRESULT : BYTE 
COTHISDEVICE:NEAR | 
PORTTOMAILBOX:NEAR,CQMIPDEVCNT: BYTE/SEQ_NO: BYTE 

0 

0 | 3 MUST FOLLOW TRESULT 


CODE 
BYES PUBLIC “CODE” 
CS:CGROUP,DS:O0GROUP 


RECUESTGIVEPTRINEAR-REQUESTTAKEPTR:NEAR 
RELEASEGIVEPTR:NEAR/-RELEASETAKEPTR:INEAR 
CALCDEVPTR:INEAR,-CQISEND:NEAR 


COMIPINTASK 
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EGE 


C000 


CCQO0 
C002 
0003 
C003 
CG04 
C006 
CQOA 
CQOC 


COOD 
COOE 
0010 
0013 
G015 
C016 
0019 
COTC 
COTE 
CO20 
0C21 
0023 


CO24 
0029 
C020 
Q02F 
C051 
0033 


C037 
0038 
C039 
003C 
CQ3D 
0040 
0041 
C042 
C045 


CC46 


B2rr 
52 


5A 

FEeG2 
3A16000C 
7501 

C3 


2606440100 
&d1ECOOC 
8601 

OS. tel 

7314 


Cé470201 


50 
83C303 
ie 
a 


mi 


m 


m 


111 


wo 2 od 8 oh ok So oA on ok 2 a en od ok so ot 
tA ON GE NN ON ON OF ND PO PO DO FO PO MD PO NI PO BS Se AM mi 
NOU DW OO ONO UID ULM 3A OO OO NI OO. UI BW 
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Sees 


THIS ROLTINE IS CALLEO WHEN A INTERRUPT IS RECEIVED. LOOK IN 
ZACH ACTIVE R@D TO SEE IF ANYTHING IS THERE. 


; 
7 
; 
, 
COMIPINTASK 


; do Device 
MCV 
PUSH 


POP 
INC 
CMP 
JNE 
RET 


{2) Ne Na Ne 


2OA: PUSH 
MOV 
CALL 
JNE 
INC 
Les: . 
MCV 
OR 
JZ 
PUSH 
JNS 
PLUSH 


; We have 


SOMEONE WAS 


7 now look fo 


f 


KAGS“MIP INPUT ROUTINE 


a 


FROC NEAR 


O jtc MaxS$no$devices~1, 


DL,/OFFH 
D X 


DL,-CQMIPDEVCNT 
azCA 
, ALL RQOS LOCKED IN 


look at RQs for eagach device. first at the one from the device. 


OX 

AL,DL 

CALCDEVPTR —  f CALC DEV POINTER 
a20 . 

BX y INDEX PAST DEVID 
ST,DWORD PTR C3X+1H] 

AXES: CSTI 7 GET RQFLAG AND RQFLAG2 

AX, AX 7 SET FLAGS 

320 7 JMP IF BOTH FLAGS ZERO 

BX 7 SAVE DEVPTR 

a19A + IF HIGH BIT SET THEN ITS FLAG2 
AX r SAVE FLAG | 


full to not full transition. see if anyone was waiting 


SYTE PTR ES: fSI+13-,0 

BX,DGROUP:SENDDEVICE 

OH,1 

Dx,C8XI 7 COMPARES SENDSTATE AND SENDCEVICE 
atg9 

BYTE PTR CBX+2]7-1 + SET SENDRESULT TO 1 


WAITING,SO ACTIVATE THEM 


r 


ES 
Si 
AX,OFFSET DGROUP:CQMIPSENCWTMBX 
AX > 1 
7 3X IS NOW ADDRESS OF SENDMSG 
DS ; 
; 


Wr 


CGISEND . 
se r GET BACK ES,STI 
eS 


an empty to nottempty transition 


09/01/80 PAGE 
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LOC OBJ LIN= SCURCE 
CO47 58 145 a9: OCP AX , GET FLAGS BACK 
0048 A380 146 TEST AL +1 
CO4A 7503 147 JNZ DIGA  JMP TF SET 
CQ4C 53 148 PCP xX 7, NO SUCH TRANSITION, GO ON TO NEXT DEVICE 
CO4D EBB4 149 JMP SHCRT 220 
150 ; 5; 
151 ; now take all things from this RQ until an error occurs. The 
152 , most likely error is that it is empty. 
455 ; 
CO4F 26C6040C 154 SISA: MCV BYTE PTR ES:CSII-C 
0053 5F 155 a22: POP DI 
0054 57 156 PUSH DI 
0055 £80000 = 157 CALL REQUESTTAKEPTR 
0058 740A 158 JZ a222A 
159 ; 
160 ; the take req returned with an error. That may mean: 
161 ; (1) it was empty, or (2) it was disabled. 
162 ; 
CO5A A810 | 163 TEST AL,10H 
O005C 5E 164 PCP SI 7, DEV PTR 
0050 74A4 165 JZ 220 > IF NOT ZEROs THEN WAS DISABLED 
— 166 . > IT WAS EMPTY, GO CHECK ON FULL TO NOT FULL 
CO5F Cé60400 167 az MCV BYTE PTR CSiII,0 7 QUEUE WAS DISABLED 
C062 EBSF 168 JMP SHORT a20 7 GO WORK ON NEXT OEVICE 
169 ; 
17°C ; there is something in the queue, take it «© 
171 , 
0064 268807 172 ae2as: MOV AX,WORD PTR ES:CBX] , SEE IF IT A CMD OR A RESPONSE 
CQ67 8826010C R 173 MOV SREQIO,AH 
0068 3C€70 174 CMP AL,70H | 
0060 754F 175 . JNE a3 7 JMP IF RESPONSE 
176 ; | 
177 > See if socket is ecpen 
178 ; 
OOSF 268A4703 179 MOV ALVES: CBXt+3H] 
0073 3C17 180 “CMP AL,23 -y CHECK FOR PORT AREA 
0075 7740 | 1314 JA a4 
0077 B400 182 MOV AH,QH >, CALC OFFSET WITHIN PORT TO MAILBOX TABLE 
0079 61£0 183 SHL AX,1 
CO75 &BF8 | 184 MCV OI,AX 7 IF PORT HAS MAILBOX SEND MSG TO IT 
CO7D &885000C é 185. MOV AX,WORD PTR PORTTOMAILBOX CODIJ 
0081 O38C0 186 OR AX, AX 
0083 7432 127 JZ a4 7 JMP IF PORT CLOSED 
0085 50 188 PUSH AX > PUT MB ON STACK FOR LATER USE 
0086 064 189 PUSH ES . 7 SAVE TREQPTR 
CO87 53 19¢C PLSH BX 
191 
192 , the socket is open 
193 ; 
CC88 Ch606000C80 oR 194 MCV TRESULT,8O0H 
0080 26834FO05 195 MOV CX,ES:CBXt5] > CONVERT MIP ADDRESS TO REAL ADDRESS 
0091 26885707 . 196 MCV OX,ES:CBX+7HI , LOAD MIP ADR ANC IDS 10 
0095 268A7702 197. MOV DH-ES:CBXtO0BHI 
0099 52 198 PUSH DX 


CO9A 51 139 PLUSH Cx 
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A SS SS SS SS NO MANSY 5 NNN, SN wes Se 


LOC O35J ere 


cq9B £87000 2C0 


201 
202 
203 
CO9E &D/7FQ4 204 
COAT Se 2c5 
OOA2 807405 20s 
COQOA5 8CDA eC? 
QOA7 1F 208 
COA8 52 209 
QOA9 890400 210 
COAC FC 211 
COAD F3 212 
QOAE AS 
COAF 1F 213 
214 
215 
21 
CCB0 C6 217 
COB1 53 218 
O0B82 £80000 E 219 
0085 E826 220 
221 
222 
223 
COB? Cé06000C8&7 R 224 
225 
226 
227 
228 
COBC EB1F 229 
230 
231 
232 
2 
234 
235 
COBE 801EQ000C = 236 
COC2 884702 237 
23) 
239 
240 
241 
COC5 807F0102 242 
COoc9 7510 243 
00C8 FEQ60000 e 244 
OOCF 880000 E 245 
0002 50 246 
Q0D03 83C303 247 
COD6é 1E 248 
QOD? 53 249 
COQOD08 £80000 c 250 
COQ0B EB22 251 
252 


&086/8087/808@8 MACRO ASSEMBL 


SCURGS 


BR) Se We Ne Ne Ne Se G83) Ne Ne Ne Ne GQ) Ne Ne Ne Ne Na No 
in : A 
. oe 


nN 
ee 


wae We Ne Ns 


ar: 


KACS“MIP INPUT ROUTINE 


CALL MIPGETADDRESS , CET REAL ADDRESS 


NOW MAKE CCPY OF RQE ENTRY WITHIN THE MSG ITSELF 


LoA DOI,WORC PTR CBX+4] 

PCP SI 7 TRQEPTR 
Les SI,/CSI+5H] © 

MCV DX,DS 

POP DS 

PUSH DX 

MOV CX,4H 

CLO 

REP MOVSW 

PCP DS 7 1 


send it off to the user 


PUSH ES , 2 
PUSH BX , 3 
CALL CQISEND 
JMP SHORT 28 


the port is closed, return that info 
MOV TRESULT-, 87H 


we have processed the command and have a response. now 
send it back to the source device. 


JMP SHORT 2&8 


the received item is a response, so do what needs to 
be done. 


give waiting task the status and then restart it 


LEA BX,OGROUP:SENCDEVICE 
MCV CBX+29,7AL z STORE RESULT 


make sure this is the ack we were waiting for 


if Send$state = Reply$Swaiting then 


CMP BYTE PTR CBXt1]3,2H 

JNE a? 

INC SEC_NO 

MCV AX,OFFSET DGRCUP:CQMIPSENDWTMBX 

PUSH AX , 1 | 

AOD BX,3 y CALC SENDMSG OFFSET 

PUSH DS r 2 

PUSH BX pts 

CALL C@ISEND > send msg off to restart mipsend task 
JMP SHORT &11 


the question now is whether we need to generate a raply. 
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LOC 


GQ00 
CODF 


QOO0F 
QOEQ 
COE 


QO0E2. 


COES4 
QOES5 
QQE8 
OOE9 


OOEB 


COEE 
COF1 


COF2 . 


cOF3 
COFE 


COFS 
COFA 
COFC 


COFF 
0100 
0101 
C104 
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O5J 


33C9 


A10000 


268907 


A810 
74E3 
ES SQFF 


oF 
57 
E80000 
EQ4CFF 


LINE SCURCE 
254 ; Re 
235 ; 
256 7 i 
257 ; x/ 
256 ge: XCR 
259 TRYINGTOGIVE: 
260 ; /* 
261 ? 
262 ; x/ 
263 PCP 
264 PUSH 
265 INC 
266 Jz 
267 PUSH 
E 268 CALL 
269 POP 
270 JNZ 
271 ; 
Zia 
R 273 MCV 
274 ; 
275 ; 
276 ; 
277 ; 
278 MOV 
279 POP 
28C PUSH 
E 281 CALL 
282 JMP 
283 ; 
284 7 come here o 
285 ; 
286 ai2: TEST 
287 JZ 
288 a2e4s; JMP 
289 ; [xk 
290 ; ni 
294 ? th 
292 ; If 
2593 ; an 
254 ; x / 
295 at1: PCP 
296 PUSH 
= 297 CALL 
298 JMP 
299 CRMIPINTASK 
300 
301 CCpe ENDS 
302 
303 
304 #1 STITL EC KAOS= 
S05 “r}) -SESECT 


i 


KACS“MIP INITIALIZATION ROUTINE 


rliss are necessary only for received commands. 


f need to generate replys, do it now 


CX,CX 


can put the response into the RQ 
OI 7 GET DEVICE PTR 

DI 

CX 

a2e4 ? 

CX 

REQUESTGIVEPTR 

Cx 

a12 
/x there is space in the RQ x/ 
GERQEntry.Request$S$id = T$results 

AX,WORD PTR TRESULT 
GFRQEntry.SrcfrequestS$id = 
3 

check for empty to not empty transition 

x/ 

ES:C3XI,AxX 

DI 

DI . 

RELEASEGIVEPTR 

SHORT @14 


IF ZERO THEN TIMEOUT 


TERQEntry.SresSRequest$Sids 


n full queue 


AL7,10H 

TRYINGTOGIVE 

a2 | , DEVICE CISABLED, FORGET IT 
we ere done processing the taken item, then release 

e RQ end see if there was a full to not-full transition. 
sov then signal tha device. In any case complete loop 

cd see if there is anything else in the RQ. 


DI 
or 
RELEASETAKEPTR 
a22 

ENDP 


MIP INITIALIZATION ROUTINE”) 
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~m~ eww em 


306 
ae 307 DATA SEGMENT PUBLIC “DATA’ 
306 EXTRN COMIPREMOTEMBX:NEAR 
a 3C9 DATA ENGS . 
310 
See 311 CODE SEGMENT PUBLIC “CODE” 
/ ate ASSUME CS:CGROUP,DS:0GROUP 
515 PUBLIC CQMIPINIT 
314 
0107 315 CGOMIPINIT PROC NEAR 
316 , procedure publics 
a1 , declare I byte, 
318 , /k 
319 ; Initialize things for MIP 
320 > f/f 
Set > IT = CQEMTPSconnect(O,.CQSMIPSremoteSmbx),z 
C107 880000 E S22 MCV AX,OFFSET DGROUP:CQMIPREMCTEMBX 
010A A3Z0000 E 323 MOV WORD PTR PORTTOMAILBOX,AX , LOAC IT OIFRECTLY 
324 vend CQ3Mipinit, . 
°C100 C3 325 RET 
326 COMIPINIT ENCP 
me ee Ser CEDE ENDS 
322 vend CMXSMipSinit, 
329 | 
330 
331 


332 +1 STITLEC’MIP POINTER ARITHMETIC ROUTINES’) 
3$3°77.. SEJECT 
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LOC O89 LINE SCURES 


334 
lisa 335 DATA SEGMENT BYTE PUBLIC “DATA’ 
335 
337 EXTRN CQMIPIOS3BASES:NEAR 
338 
es 339 DATA ENDS 
34C 
Sy 341 CODE SEGMENT BYTE PUBLIC *“CODE’ 
; 342 ASSUME CS:CGROUP-DS:DGROUP 
343 ; 
344 ; 
345 > THIS ROUTINE CONVERTS AN IDS AND A 24 BIT POINTER INTO 
346 > A 8086 LONG POINTER. THE FORMAT OF THE INPUT IS AS FOLLOWS: 
S4-¢ ; 
343 7 
349 PL3SLIC MIPGETADDORESS 
C10& . 350 MIPGETAODRESS: 
CI1OE SF 351 PQP DI r7 RET ADR 
C10F 58 55:2 PCP 3X 7 LOW ORDER 16 BITS 
0110 59 353 PCP CX ry IDS AND HIGH ORDER & BITS 
0111 57 . 354 PUSH DI 7 RET ADR 
0112 8&3C1 355 MOV AX CX 
356 ? 
357 7 FORM PLM PTR FROM 24 BIT OFFSET 
358 . ? 
0114 &8D3 359 MCV DX+BX 7 MAKE COPY OF LOWER 16 BITS 
C116 81E2FOFF 36C AND OX,OFFFOH + GET RID OF LOWER 4 8ITS 
Ci1A &1ET0F0OG 361 AND CX,OFH 
C11& 0807 362 OR DX,CX 7, OR IN LOWER 4 BITS OF HIGH ORDER 8 BITS 
6120 8104 363 MOV CL+4 
0122 D3CA . 364 RCR DX7CL 7 FORM BASE 
0124 81E30F0C 365 AND 3X,OFH + FORM OFFSET 
366 ; 
S6( , NOW GeT ITOSID BASE 
368 ; 
0128 33C9 369 XOR CX,CX 
0124 8AC4 S71 MCV AL, AH | 
-012C 3C07 371 CMP AL,+7 7 CHECK FOR IDS > 7. CIE AN INVALIO VALUE) 
G12E 773D 372 JA Sen > RETURN QFFFFH IN ES IF IDSIS > 7 ~SCRRY FOR LONG JUMP 
G130 3254 Sts XCR KH, AH 7, MAKE IOS UPPER BYTE ZERO 
C132 01E0 374 SHL AX+1 7 MULT BY 2 
0134 8BFO | 375 MCV SI,AX 
0136 3AACO100 E 376 CMP CH/BYTE PTR OGROUP:CQMIPICSBSASESCSI+13 | IF LEN = O,» EXIT 
C13A 7431 377 a ae S2A >, IF IDS LENGTH = Ov RETURN OFFFFH - SORRY. AGAIN !!. 
0135C 8AACOOOC e 37s MCV CH, BYTE PTR DGROUP:CQMIPIOSBASESCSTII 
379 7 HAVE BASE IN AX AS A PARAGRAPH AODRESS 
3&0 ; 
3214 y NOW ADD IN TOS BASE TO PTR BASE 
» 2 see ; 
0140 0301 | 3&3 MGA1: ADD DX,CX 
0142 8EC2 384 . MOV ES,DX 
C144 C3 335 7 RET 3 RETURN 
386 
387 
388 , THIS ROUTINE TAKES A 32 BIT PLM86 POINTER AND RETURNS THE 
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C145 
0145 
0146 
C147 
C148 


0149 
C148 
C140 
C14F 
0151 


G155 
C138 
0153 


6150) 
C15F 
0161 
0163 
6165 
0167 
0169 
01:69 
C16A 
0168 


G16D 
C170 
0172 
C173 
0173 


C175 
C177 
C179 
0178 


C3J 


0300 
81270F00 


BEQQ00 
B90800 
3303 


B8FFFF 
BECO 
C3 


2AFQ 


B104 
D3c2 
8802 
25FOFF 


440 
447 
442 
443 
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> IOS IT IS IN ANC A 24 BIT OFFSET INTO THAT IDS CORRESPONDING 
> TO THE POINTER VALUE. IF IT IS NOT IN ANY IDS, IT RETURNS 
; 


IOSIO 


PLBLIEC 


MIPGETMIPFORM: 


“we Ne Ne 


we ‘Ne Ne 


WN we Ne Ne 


1 


UD) we Ne Na Ne Ne Ne 


POF 
PCP 
PCP 
PUSH 


MOV 
MCV 
SHR 
ACD 
ANC 


MCV 
MOV 
XOR 


DO SEARCH 


MCV 
ACD 
CMP 
JB 
CMP 
J3 


INC 
INC 
LOOP 


cA: MCV 


MOV 
RET 


SU8 


= OFFH. 


MIPGETMIPFORM 

3X , GET RETURN ADDRESS 

AX 7 OFFSET PART CF POINTER 
DX > BASE PART OF POINTER 
3X 7 RESTORE RETURN ADDRESS 


NOW FORM THE PARAGRAPH NUMBER OF THe POINTER 


DI,AX 3 MAKE COPY OF OFFSET 


CL+4 

AX, CL 7 GET RID OF LOWER 4 BITS OF OFFSET 
DX, AX 7 HAVE PARAGRAPH NUMBER IN DX 
DI,OFH -, ISOLATE 4 LOWER BITS OF OFFSET 


NOW SEE WHAT IDS IT IS IN 


SI,OFFSET DGROUP:CQMIPIDSBASES 
CX-8 7 COUNTER FOR IDSS 
BX,BX » IDS NUMBER BEING LOOKED AT 


AX, CSI+BX] ¢ GET BASE AND LENGTH OF CURRENT 10S 
AH, AL 7 FORM BASE CAL) AND BASEtLENGTH (AH) 


7 LF BH IS SELOW BASE, THEN NOT IN THIS [CS 
DH, AH , . 

, IF BH IS NOT BELOW BASE+LENGHT, THEN NOT IN THIS 105 
BX ; NOT IN THIS IDS, GO LOOK AT NEXT ONE 


BX 
$1 


NOT IN ANY IDS, RETURN IDSIO = OFFH 


COME HERE ALSO FROM MIPGETAODRESS IN A VER-R-R-Y UNSRUCTURED TECHNIQUE 


AX,OFFFFH 7 RETURNS ES=OFFFFH 
ES,AX 


DH, AL > IN THIS IDS, MAKE AN OFFSET 


3} NOW FORM 24 BIT OFFSET FROM WHAT WE HAVE IN DX AND DI 


MCV CL,4 > GET HIGH ORODER BITS INTC LOW ORDER PLACES 
RCL DX/CL 
MCV AX,9OX > MAKE COPY OF ROTATED DATA 
AND AX,OFFFOH ¢ THIS BECOMES HIGH 12 ORDER BITS OF LOWER 16 
POINTER ARITHMETIC ROUTINES | — 09/01/7800 PAGE 


10 


Loc CBJ bake neg be riee 


G17=£ 08C7 444 OR AX, DI 7 BRING IN 4 LOWER BITS OF LOWER CRDER 16 
C180 &81=20F00 445 AND OX,OFH + ONLY 4 CF 8 BITS OF HIGHER ORDER 8 BITS 
0184 00£8 446 SHR 3L 71 
C186 S8AF3 447 MOV DH, BL > BRING IN IDS ID 
0188 88D8 448 MCV BX,AX > LOWER ORDER 16 BITS 
G18A 8EC2 449 | MOV =S$,0X > HIGH ORDER 8 8ITS AND IOS 
C18c C3 450 RET 
451 
452 
453 PU3SLIC SUBSYSTEMCALL 
618D 454 SUBSYSTEMCALL: | 
C18D 58 aoe a PCP 3X 7 RET AOR 
C18E 58 456 POP AX > ADDRESS OF ROUTINE TO CALL 
Q18F 53 457 PUSH BX > RESTORE RET ADR 
0190 FFEO 458 JMP AX 7 GO TO IT 
459 
Sas | 460 CCDE ENDS 
4614 
462 | END 


ASSEMBLY COMPLETE, NCO ERRORS FOUND 
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